home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.04 Apr 87 / MPW macros / Rez_Macros < prev    next >
Encoding:
Text File  |  1987-01-26  |  4.1 KB  |  165 lines  |  [TEXT/MPS ]
  1. #    Interactive macros to build Rez definitions
  2. #    Frank Alviani - Tuesday, December 9, 1986 2:02:07 PM
  3. #    Used with another language menu; no 'top' or 'bottom' macros needed
  4.  
  5. AddMenu Rez 'Alert' '"{MPW}macros:doAlert"'
  6. AddMenu Rez 'Bundle' '"{MPW}macros:doBundle"'
  7. AddMenu Rez 'Control' '"{MPW}macros:doControl"'
  8. AddMenu Rez 'DITL' ∂
  9. 'begin;∂
  10.  set lclItm 1;∂
  11.  "{MPW}macros:getResAttrs" DITL;∂
  12.  echo "∂{";∂
  13.  end'
  14. AddMenu Rez 'End DITL' 'replace \;\ "∂n∂}∂n∂};∂n" "{active}"'
  15. AddMenu Rez 'DLOG' '"{MPW}macros:doDLOG"'
  16. AddMenu Rez 'FREF' '"{MPW}macros:doFREF"'
  17. AddMenu Rez 'MENU' '"{MPW}macros:doMENU"'
  18. AddMenu Rez 'SIZE' '"{MPW}macros:doSize"'
  19.  
  20. AddMenu Rez 'STR ' ∂
  21. 'begin;∂
  22.  "{MPW}macros:getResAttrs" "STR ";∂
  23.  set str "`{st}`";∂
  24.  echo "  ∂"{str}∂"" ;∂
  25.  echo "∂};";∂
  26.  end'
  27.  
  28. AddMenu Rez 'STR#' ∂
  29. 'begin;∂
  30.  "{MPW}macros:getResAttrs" "STR#";∂
  31.  echo -n "∂{ ";∂
  32.  loop;∂
  33.      set str "`{st}`";∂
  34.     break if ("{str}" == "") OR ({status} != 0);∂
  35.     echo "  ∂"{str}∂";" ;∂
  36.  end;∂
  37.  cut \;\ "{active}" ;∂
  38.  echo "∂n∂}∂n∂};";∂
  39.  end'
  40.  
  41. AddMenu Rez 'WIND' '"{MPW}macros:doWIND"'
  42.  
  43. AddMenu Rez '(-' ''
  44.  
  45. AddMenu Rez 'Button' ∂
  46. 'begin;∂
  47.   set exit 0;∂
  48.   set rr "`{br}`";∂
  49.   confirm "Enabled?";∂
  50.   if "{status}" == 0 ; set onoff enabled ;∂
  51.                   else ; set onoff disabled; end;∂
  52.   set tex "`{tit}`";∂
  53.   echo "∂{{rr}∂},∂t∂/* {lclItm} *∂/";∂
  54.   echo "  button ∂{{onoff},∂"{tex}∂"∂};";∂
  55.   set lclItm `evaluate {lclItm} + 1`;∂
  56.  end'
  57.  
  58. AddMenu Rez 'Checkbox' ∂
  59. 'begin;∂
  60.   set exit 0;∂
  61.   set rr "`{br}`";∂
  62.   confirm "Enabled?";∂
  63.   if "{status}" == 0 ; set onoff enabled ;∂
  64.                   else ; set onoff disabled; end;∂
  65.   set tex "`{tit}`";∂
  66.   echo "∂{{rr}∂},∂t∂/* {lclItm} *∂/";∂
  67.   echo "  Checkbox ∂{{onoff},∂"{tex}∂"∂};";∂
  68.   set lclItm `evaluate {lclItm} + 1`;∂
  69.  end'
  70.  
  71. AddMenu Rez 'RadioButton' ∂
  72. 'begin;∂
  73.   set exit 0;∂
  74.   set rr "`{br}`";∂
  75.   confirm "Enabled?";∂
  76.   if "{status}" == 0 ; set onoff enabled ;∂
  77.                   else ; set onoff disabled; end;∂
  78.   set tex "`{tit}`";∂
  79.   echo "∂{{rr}∂},∂t∂/* {lclItm} *∂/";∂
  80.   echo "  RadioButton ∂{{onoff},∂"{tex}∂"∂};";∂
  81.   set lclItm `evaluate {lclItm} + 1`;∂
  82.  end'
  83.  
  84. AddMenu Rez 'ControlItem' ∂
  85. 'begin;∂
  86.   set exit 0;∂
  87.   set rr "`{br}`";∂
  88.   confirm "Enabled?";∂
  89.   if "{status}" == 0 ; set onoff enabled ;∂
  90.                   else ; set onoff disabled; end;∂
  91.   set cntlID "`{cid}`";∂
  92.   echo "∂{{rr}∂},∂t∂/* {lclItm} *∂/";∂
  93.   echo "  Control ∂{{onoff},{cntlID}∂};";∂
  94.   set lclItm `evaluate {lclItm} + 1`;∂
  95.  end'
  96.  
  97. AddMenu Rez 'StaticText' ∂
  98. 'begin;∂
  99.   set exit 0;∂
  100.   set rr "`{br}`";∂
  101.   confirm "Enabled?";∂
  102.   if "{status}" == 0 ; set onoff enabled ;∂
  103.                   else ; set onoff disabled; end;∂
  104.   set tex "`{tit}`";∂
  105.   echo "∂{{rr}∂},∂t∂/* {lclItm} *∂/";∂
  106.   echo "  StaticText ∂{{onoff},∂"{tex}∂"∂};";∂
  107.   set lclItm `evaluate {lclItm} + 1`;∂
  108.  end'
  109.  
  110. AddMenu Rez 'EditText' ∂
  111. 'begin;∂
  112.   set exit 0;∂
  113.   set rr "`{br}`";∂
  114.   confirm "Enabled?";∂
  115.   if "{status}" == 0 ; set onoff enabled ;∂
  116.                   else ; set onoff disabled; end;∂
  117.   set tex "`{tit}`";∂
  118.   echo "∂{{rr}∂},∂t∂/* {lclItm} *∂/";∂
  119.   echo "  EditText ∂{{onoff},∂"{tex}∂"∂};";∂
  120.   set lclItm `evaluate {lclItm} + 1`;∂
  121.  end'
  122.  
  123. AddMenu Rez 'Icon' ∂
  124. 'begin;∂
  125.   set exit 0;∂
  126.   set rr "`{br}`";∂
  127.   confirm "Enabled?";∂
  128.   if "{status}" == 0 ; set onoff enabled ;∂
  129.                   else ; set onoff disabled; end;∂
  130.   set cntlID "`{cid}`";∂
  131.   echo "∂{{rr}∂},∂t∂/* {lclItm} *∂/";∂
  132.   echo "  Icon ∂{{onoff},{cntlID}∂};";∂
  133.   set lclItm `evaluate {lclItm} + 1`;∂
  134.  end'
  135.  
  136. AddMenu Rez 'Picture' ∂
  137. 'begin;∂
  138.   set exit 0;∂
  139.   set rr "`{br}`";∂
  140.   confirm "Enabled?";∂
  141.   if "{status}" == 0 ; set onoff enabled ;∂
  142.                   else ; set onoff disabled; end;∂
  143.   set cntlID "`{cid}`";∂
  144.   echo "∂{{rr}∂},∂t∂/* {lclItm} *∂/";∂
  145.   echo "  Picture ∂{{onoff},{cntlID}∂};";∂
  146.   set lclItm `evaluate {lclItm} + 1`;∂
  147.  end'
  148.  
  149. AddMenu Rez 'UserItem' ∂
  150. 'begin;∂
  151.   set exit 0;∂
  152.   set rr "`{br}`";∂
  153.   confirm "Enabled?";∂
  154.   if "{status}" == 0 ; set onoff enabled ;∂
  155.                   else ; set onoff disabled; end;∂
  156.   echo "∂{{rr}∂},∂t∂/* {lclItm} *∂/";∂
  157.   echo "  UserItem ∂{{onoff}∂};";∂
  158.   set lclItm `evaluate {lclItm} + 1`;∂
  159.  end'
  160.  
  161. AddMenu Rez '(-' ''
  162.  
  163. AddMenu Rez 'Shift Item' '"{MPW}macros:doShift"'
  164. AddMenu Rez 'Adjust Width' '"{MPW}macros:doWiden"'
  165. AddMenu Rez 'Adjust Height' '"{MPW}macros:doTaller"'